Imports Microsoft.Reporting.WinForms
Imports DoAnQuanLyBanHang1065043_1065007.DoAnQuanLyBanHang.BUSS
Imports DoAnQuanLyBanHang1065043_1065007.DoAnQuanLyBanHang.DAO
Imports DoAnQuanLyBanHang1065043_1065007.DoAnQuanLyBanHang.General

Public Class frmDSNhanVien
    Public Sub New()
        InitializeComponent()
        DataService.OpenConnection()
    End Sub
    Private Sub frmDSNhanVien_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Dim ketqua As IList(Of NhanVienInfo) = NhanVienCtrl.LayDsNhanVien()

        Dim param As IList(Of ReportParameter) = New List(Of ReportParameter)()
        param.Add(New ReportParameter("Ngay", DateTime.Today.Day & "/" & DateTime.Today.Month & "/" & DateTime.Today.Year))
        Me.ReportViewerDanhSachNhanVien.LocalReport.SetParameters(param)

        Me.NhanVienInfoBindingSource.DataSource = ketqua

        Me.ReportViewerDanhSachNhanVien.RefreshReport()
        Me.ReportViewerDanhSachNhanVien.RefreshReport()
    End Sub
End Class